library(tidyverse)
The memer package by Sam Tyner allows you to replace text in popular memes with your own.
devtools::install_github("sctyner/memer")
library(memer)
meme_list()
## [1] "AllTheThings" "AmericanChopper" "AncientAliens"
## [4] "BatmanRobin" "DistractedBf" "EvilKermit"
## [7] "ExpandingBrain" "FirstWorldProbs" "FryNotSure"
## [10] "HotlineDrake" "IsThisAPigeon" "NoneOfMyBusiness"
## [13] "CheersLeo" "OneDoesNotSimply" "DosEquisMan"
## [16] "OffRamp" "OprahGiveaway" "Philosoraptor"
## [19] "PicardFacePalm" "PicardWTH" "Purples"
## [22] "PutItPatrick" "Rainbow" "ShiaJustDoIt"
## [25] "Spongebob" "SuccessKid" "ThatWouldBeGreat"
## [28] "TheRockDriving" "ThinkAboutIt" "TrumpBillSigning"
## [31] "TwoButtonsAnxiety" "WhatIfIToldYou" "CondescendingWonka"
## [34] "YoDawg" "Y-U-NOguy"
meme_get("OprahGiveaway")
meme_get("OprahGiveaway") %>%
meme_text_bottom("Happy Birthday \n R-Ladies Sydney!")
Some memes have more than 1 text field
meme_get("TrumpBillSigning") %>% meme_text_trump("R-Ladies Sydney", "Happy Birthday")
install package
devtools::install_github("GuangchuangYu/meme")
## Skipping install of 'meme' from a github remote, the SHA1 (2b8e6d15) has not changed since last install.
## Use `force = TRUE` to force installation
load the package
library(meme)
Ran into problems with sysfonts package. Fix install XQuartz.
pic1 <- system.file("success.jpg", package="meme")
meme::meme(pic1, "code", "all the things!")
meme::meme("kitten.jpg", "code", "all the things!")
Not being maintained, API to memecaptain for templates doesnt work. Looking for a new maintainer! https://github.com/leeper/meme
memery package: https://github.com/leonawicz/memery
note also need showtext and sysfonts packages
https://github.com/rasmusab/beepr
library(beepr)
beep(8)
“ping” “coin” “fanfare” “complete” “treasure” “ready” “shotgun” “mario” “wilhelm” “facebook” “sword”
devtools::install_github(“gaborcsardi/praise”)
library(praise
)
praise()
## [1] "You are magnificent!"
devtools::install_github("adam-gruer/goodshirt")
## Skipping install of 'goodshirt' from a github remote, the SHA1 (72531052) has not changed since last install.
## Use `force = TRUE` to force installation
library(goodshirt)
library(cowsay)
library(magrittr)
##
## Attaching package: 'magrittr'
## The following object is masked from 'package:purrr':
##
## set_names
## The following object is masked from 'package:tidyr':
##
## extract
soul_squad()
##
## She's my everything. She makes the bass drop in my heart.
##
## ~ Jason